D r a w B o a r d ( ) ; 
 
 D r a w C o l o r S e l e c t o r ( ) ; 
 
 C o l o r S e l e c t e d ( ) ; 
 
 C o l o r S q u a r e ( ) ; 
 
 A d j a c e n t S q u a r e s ( ) ; 
 
 C h e c k S q u a r e ( ) ; 
 
 I n c r e a s e T u r n ( ) ; 
 
 M o v e S e l e c t B o x ( ) ; 
 
 H i g h l i g h t ( ) ; 
 
 I n t T o S t r i n g ( ) ; 
 
 D i g i t T o C h a r ( ) ; 
 
 
 
 c o l o r L i s t ; 
 
 b o a r d C o l o r ; 
 
 b o a r d D o n e ; 
 
 t u r n ; 
 
 m a x G u e s s e s ; 
 
 
 
 E X P O R T   F l o o d I t ( ) 
 
 / / F l o o d   I t   v 1 . 3 
 
 / / 2 0 2 0 
 
 / / T o n y   G a l l o 
 
 / / t g a l l o @ t b a y t e l . c o m 
 
 / / h t t p : / / m y . t b a y t e l . n e t / t g a l l o / h p   p r i m e 
 
 B E G I N 
 
 l o c a l   t o u c h ; 
 
 L O C A L   X , Y ; 
 
 l o c a l   k e y ; 
 
 l o c a l   d o n e ; 
 
 l o c a l   c h o i c e ; 
 
 l o c a l   m o u s e U n c l i c k ; 
 
 l o c a l   h i g h l i g h t e d C o l o r ; 
 
 
 
 / / t i t l e   s c r e e n 
 
 R E C T _ P ( 0 , 0 , 3 1 9 , 2 3 9 , 0 , R G B ( 0 , 0 , 0 ) ) ; 
 
 T E X T O U T _ P ( " F L O O D   I T " , 1 3 3 , 9 0 , 2 , R G B ( 2 5 5 , 0 , 0 ) ) ; 
 
 T E X T O U T _ P ( " v 1 . 3       2 0 2 0 " , 1 3 3 , 1 1 0 , 1 , R G B ( 2 5 5 , 0 , 0 ) ) ; 
 
 T E X T O U T _ P ( " b y   T o n y   G a l l o " , 1 2 8 , 1 3 0 , 1 , R G B ( 2 5 5 , 0 , 0 ) ) ; 
 
 w a i t ( 1 . 5 ) ; 
 
 
 
 m a x G u e s s e s : = 2 5 ; 
 
 
 
 / / p i n k ,   b l u e ,   y e l l o w ,   g r e e n ,   p u r p l e ,   r e d   
 
 c o l o r L i s t : =   { R G B ( 2 3 7 , 1 1 2 , 1 6 1 ) , R G B ( 7 0 , 1 7 7 , 2 2 6 ) , R G B ( 2 4 3 , 2 4 6 , 2 9 ) , R G B ( 1 2 6 , 1 5 7 , 3 0 ) , R G B ( 9 6 , 9 2 , 1 6 8 ) ,   R G B ( 2 2 0 , 7 4 , 3 2 ) } ; 
 
 
 
 d o n e : =   0 ; 
 
 W H I L E   ( d o n e = = 0 )   D O 
 
 
 
 / / c l e a r   s c r e e n 
 
 R E C T _ P ( 0 , 0 , 3 1 9 , 2 3 9 , 0 , R G B ( 2 5 5 , 2 5 5 , 2 5 5 ) ) ; 
 
 
 
 / / c r e d i t s 
 
 T E X T O U T _ P ( " F L O O D   I T " , 1 0 , 5 , 2 , R G B ( 0 , 0 , 0 ) ) ; 
 
 T E X T O U T _ P ( " v 1 . 3       2 0 2 0 " , 1 0 0 , 6 , 1 , R G B ( 0 , 0 , 0 ) ) ; 
 
 T E X T O U T _ P ( " b y   T o n y   G a l l o " , 2 5 0 , 5 , 1 , R G B ( 0 , 0 , 0 ) ) ; 
 
 
 
 T E X T O U T _ P ( " R o u n d " , 1 0 , 1 2 5 , 2 , R G B ( 1 0 0 , 1 0 0 , 1 0 0 ) ) ; 
 
 T E X T O U T _ P ( " 0 " , 6 0 , 1 2 5 , 2 , R G B ( 1 0 0 , 1 0 0 , 1 0 0 ) ) ; 
 
 T E X T O U T _ P ( " / " , 7 0 , 1 2 5 , 2 , R G B ( 1 0 0 , 1 0 0 , 1 0 0 ) ) ; 
 
 T E X T O U T _ P ( I n t T o S t r i n g ( m a x G u e s s e s ) , 7 7 , 1 2 5 , 2 , R G B ( 1 0 0 , 1 0 0 , 1 0 0 ) ) ; 
 
 
 
 D r a w B o a r d ( ) ; 
 
 D r a w C o l o r S e l e c t o r ( ) ; 
 
 
 
 t u r n : = 0 ; 
 
 
 
 m o u s e U n c l i c k : = 1 ; 
 
 h i g h l i g h t e d C o l o r : = - 1 ;   / / n o   c o l o r   s e l e c t e d 
 
 
 
 W H I L E   I S K E Y D O W N ( 4 ) < > 1   d o 
 
 
 
 w a i t ( . 1 ) ; 
 
 t o u c h : = m o u s e ( ) ; 
 
 k e y : = - 1 ; 
 
 
 
 k e y : = g e t k e y ; 
 
 
 
     i f   k e y = = 2   o r   k e y = = 7   o r   k e y = = 8   o r   k e y = = 1 2   t h e n 
 
         / / d i r e c t i o n a l   k e y s 
 
         h i g h l i g h t e d C o l o r   : =   M o v e S e l e c t B o x ( k e y ,   h i g h l i g h t e d C o l o r ) ; 
 
         c o n t i n u e ; 
 
     e n d ; 
 
 
 
     i f   k e y = = 3 0   a n d   h i g h l i g h t e d C o l o r > = 1   t h e n 
 
     / / p r e s s e d   b o a r d   w i t h   E N T E R 
 
           C o l o r S q u a r e ( 1 ,   h i g h l i g h t e d C o l o r ) ; 
 
           I n c r e a s e T u r n ( ) ; 
 
     e n d ; 
 
 
 
     i f   s i z e ( t o u c h ( 1 ) )   t h e n 
 
         i f     t o u c h ( 1 , 5 ) = = 0   t h e n 
 
             X : = B !R ( t o u c h ( 1 , 1 ) ) ; 
 
             Y : = B !R ( t o u c h ( 1 , 2 ) ) ; 
 
             Z : = B !R ( t o u c h ( 1 , 5 ) ) ; 
 
 
 
           / / c o l o r   s e l e c t o r 
 
             i f   3 < = X < = 9 7   a n d   3 8 < = Y < = 9 7   a n d   m o u s e U n c l i c k = = 1   T H E N 
 
                     m o u s e U n c l i c k : = 0 ;   / / s e t s   f l a g   t o   s t o p   p r o c e s s i n g   m o u s e   c l i c k s   u n t i l   u n c l i c k   h a s   h a p p e n e d 
 
                     C o l o r S e l e c t e d ( X , Y ) ; 
 
 
 
             e n d ; 
 
         e n d ; 
 
     e l s e 
 
         / / t o u c h   i s   e m p t y ,   m o u s e   u n c l i c k e d 
 
         m o u s e U n c l i c k : = 1 ; 
 
     e n d ; 
 
 
 
     i f   t u r n = = m a x G u e s s e s   t h e n 
 
         b r e a k ; 
 
     e n d ; 
 
 E N D ;   / / W H I L E   n o t   E S C 
 
 
 
 k e y : = - 1 ; 
 
 w h i l e   k e y   =   - 1   d o 
 
         w a i t ( . 1 ) ; 
 
       t o u c h : = m o u s e ( ) ; 
 
           k e y : = g e t k e y ; 
 
 e n d ; 
 
 
 
 C H O O S E ( c h o i c e ,   " P l a y   A g a i n ? " ,   " Y e s " ,   " N o " ) ; 
 
 i f   c h o i c e   < >   1   t h e n   d o n e : = 1 ;   e n d ; 
 
 
 
 
 
 E N D ;   / / W H I L E   n o t   D O N E 
 
 E N D ; 
 
 
 
 
 
 D r a w B o a r d ( ) 
 
 b e g i n 
 
 l o c a l   I , J , c o l o r N u m ; 
 
 
 
 
 
 b o a r d C o l o r : = m a k e l i s t ( 0 , A , 1 , 1 9 6 , 1 ) ; 
 
 b o a r d D o n e : = m a k e l i s t ( 0 , A , 1 , 1 9 6 , 1 ) ; 
 
 
 
 F O R   J   F R O M   1   t o   1 4   D O 
 
   F O R   I   F R O M   1   t o   1 4   D O 
 
       c o l o r N u m : = R A N D I N T ( 1 , 6 ) ; 
 
       b o a r d C o l o r ( ( ( J - 1 ) * 1 4 )   +   I ) : = c o l o r N u m ; 
 
       R E C T _ P ( 1 0 0 + 1 4 * I , 1 0 + 1 4 * J , 1 1 3 + 1 4 * I , 1 0 + 1 4 * J + 1 3 , c o l o r L i s t ( c o l o r N u m ) , c o l o r L i s t ( c o l o r N u m ) ) ; 
 
   E N D ; 
 
 E N D ; 
 
 
 
 / / m a r k   ( 1 , 1 )   d o n e   a s   s t a r t i n g   p o i n t 
 
 b o a r d D o n e ( 1 ) : = 1 ; 
 
 
 
 / / s i m u l a t e   p r e s s   t o   f l a g   a d j e c e n t   s q u e a r s   o f   t h e   s a m e   c o l o r 
 
 C o l o r S q u a r e ( 1 ,   b o a r d C o l o r ( 1 ) ) ; 
 
 e n d ; 
 
 
 
 
 
 C o l o r S e l e c t e d ( X , Y ) 
 
 b e g i n 
 
 l o c a l   c o l o r N u m ; 
 
 
 
   c o l o r N u m = 0 ; 
 
   i f   8 < = X < = 3 2   a n d   3 8 < = Y < = 6 2   t h e n   c o l o r N u m : = 1   E N D ; 
 
   i f   4 1 < = X < = 6 5   a n d   3 8 < = Y < = 6 2   t h e n   c o l o r N u m : = 2   E N D ; 
 
   i f   7 4 < = X < = 9 8   a n d   3 8 < = Y < = 6 2   t h e n   c o l o r N u m : = 3   E N D ; 
 
   i f   8 < = X < = 3 2   a n d   7 1 < = Y < = 9 5   t h e n   c o l o r N u m : = 4   E N D ; 
 
   i f   4 1 < = X < = 6 5   a n d   7 1 < = Y < = 9 5   t h e n   c o l o r N u m : = 5   E N D ; 
 
   i f   7 4 < = X < = 9 8   a n d   7 1 < = Y < = 9 5   t h e n   c o l o r N u m : = 6   E N D ; 
 
 
 
   i f   ( c o l o r N u m   < >   0 )   t h e n 
 
       C o l o r S q u a r e ( 1 ,   c o l o r N u m ) ; 
 
       I n c r e a s e T u r n ( ) ; 
 
   e n d ; 
 
 
 
 e n d ; 
 
 
 
 I n c r e a s e T u r n ( ) 
 
 b e g i n 
 
 l o c a l   w i n ; 
 
 
 
       t u r n : = t u r n + 1 ; 
 
       R E C T _ P ( 5 5 , 1 2 5 , 7 0 , 1 3 5 , R G B ( 2 5 5 , 2 5 5 , 2 5 5 ) , R G B ( 2 5 5 , 2 5 5 , 2 5 5 ) ) ; 
 
       i f   t u r n   < =   9   t h e n 
 
             T E X T O U T _ P ( I n t T o S t r i n g ( t u r n ) , 6 0 , 1 2 5 , 2 , R G B ( 1 0 0 , 1 0 0 , 1 0 0 ) ) ; 
 
       e l s e 
 
             T E X T O U T _ P ( I n t T o S t r i n g ( t u r n ) , 5 5 , 1 2 5 , 2 , R G B ( 1 0 0 , 1 0 0 , 1 0 0 ) ) ; 
 
       e n d ; 
 
 
 
       w i n : = 1 ; 
 
       F O R   I   F R O M   1   t o   1 9 6   D O 
 
             i f   b o a r d D o n e ( I ) = = 0   t h e n 
 
                 w i n : = 0 ; 
 
             e n d ; 
 
       E N D ; 
 
 
 
       i f   w i n = = 1   t h e n 
 
           T E X T O U T _ P ( " Y o u   W o n ! " , 2 5 , 1 5 0 , 3 , R G B ( 2 5 5 , 0 , 0 ) ) ; 
 
           t u r n : = m a x G u e s s e s ;   / / t o   f l a g   e n d   o f   g a m e 
 
       e l s e 
 
           i f   t u r n = = m a x G u e s s e s   t h e n 
 
                 T E X T O U T _ P ( " Y o u   L o s t ! " , 2 5 , 1 5 0 , 3 , R G B ( 2 5 5 , 0 , 0 ) ) ; 
 
           e n d ; 
 
       e n d ; 
 
 
 
       i f   t u r n = = m a x G u e s s e s   t h e n   / / e n d   o f   g a m e 
 
               T E X T O U T _ P ( " P r e s s   a n y " , 2 5 , 1 8 0 , 2 , R G B ( 0 , 0 , 0 ) ) ; 
 
               T E X T O U T _ P ( " k e y . " , 4 0 , 1 9 5 , 2 , R G B ( 0 , 0 , 0 ) ) ; 
 
       e n d ; 
 
 e n d ; 
 
 
 
 M o v e S e l e c t B o x ( k e y ,   h i g h l i g h t e d C o l o r ) 
 
 b e g i n 
 
 l o c a l   o l d H i g h l i g h t e d C o l o r ; 
 
 
 
       o l d H i g h l i g h t e d C o l o r : = h i g h l i g h t e d C o l o r ; 
 
 
 
       i f   h i g h l i g h t e d C o l o r = = -   1   t h e n 
 
             h i g h l i g h t e d C o l o r : = 1 ; 
 
             H i g h l i g h t ( h i g h l i g h t e d C o l o r ,   1 ) ;     / /   h i g h l i g h t 
 
             r e t u r n   1 ; 
 
       e n d ; 
 
 
 
 
 
       i f   k e y = = 2   o r   k e y = = 1 2   t h e n 
 
             i f   1 < = h i g h l i g h t e d C o l o r < = 3   t h e n 
 
                   h i g h l i g h t e d C o l o r : = h i g h l i g h t e d C o l o r + 3 ; 
 
             e l s e   / /   4 < = h i g h l i g h t e d C o l o r < = 6 
 
                   h i g h l i g h t e d C o l o r : = h i g h l i g h t e d C o l o r - 3 ; 
 
             e n d ; 
 
       e n d ; 
 
 
 
       i f   k e y = = 7   t h e n 
 
             i f   h i g h l i g h t e d C o l o r = = 1   o r   h i g h l i g h t e d C o l o r = = 4   t h e n 
 
                   h i g h l i g h t e d C o l o r : = h i g h l i g h t e d C o l o r + 2 ; 
 
             e l s e   / /   h i g h l i g h t e d C o l o r = = 2 , 3 , 5 , 6 
 
                   h i g h l i g h t e d C o l o r : = h i g h l i g h t e d C o l o r - 1 ; 
 
             e n d ; 
 
       e n d ; 
 
 
 
       i f   k e y = = 8   t h e n 
 
             i f   h i g h l i g h t e d C o l o r = = 3   o r   h i g h l i g h t e d C o l o r = = 6   t h e n 
 
                   h i g h l i g h t e d C o l o r : = h i g h l i g h t e d C o l o r - 2 ; 
 
             e l s e   / /   h i g h l i g h t e d C o l o r = = 1 , 2 , 4 , 5 
 
                   h i g h l i g h t e d C o l o r : = h i g h l i g h t e d C o l o r + 1 ; 
 
             e n d ; 
 
       e n d ; 
 
 
 
       i f   o l d H i g h l i g h t e d C o l o r < > h i g h l i g h t e d C o l o r   t h e n 
 
               i f   o l d H i g h l i g h t e d C o l o r < > - 1   t h e n 
 
                     H i g h l i g h t ( o l d H i g h l i g h t e d C o l o r ,   0 ) ;   / / u n h i g h l i g h t 
 
               e n d ; 
 
               H i g h l i g h t ( h i g h l i g h t e d C o l o r ,   1 ) ;     / /   h i g h l i g h t 
 
       e n d ; 
 
 
 
       r e t u r n   h i g h l i g h t e d C o l o r ; 
 
 e n d ; 
 
 
 
 
 
 H i g h l i g h t ( c o l o r N u m ,   m o d e ) 
 
 b e g i n 
 
 / / m o d e   0   -   u n h i g h l i g h t 
 
 / / m o d e   1   -   h i g h l i g h t 
 
 l o c a l   c o l o r ; 
 
 l o c a l   I , J ; 
 
 
 
         I : = i r e m ( c o l o r N u m , 3 ) ; 
 
         i f   I = = 0   t h e n 
 
             I : = 3 ; 
 
         e n d ; 
 
 
 
         J : = i q u o ( c o l o r N u m - 1 , 3 ) + 1 ; 
 
 
 
       i f   m o d e   = =   0   t h e n   c o l o r : = R G B ( 2 5 5 , 2 5 5 , 2 5 5 ) ;   e n d ; 
 
       i f   m o d e   = =   1   t h e n   c o l o r : = R G B ( 0 , 0 , 0 ) ;   e n d ; 
 
 
 
       L I N E _ P ( 6 + ( I - 1 ) * 3 3 , 3 6 + ( J - 1 ) * 3 3 , 6 + ( I - 1 ) * 3 3 , 2 8 + 3 6 + ( J - 1 ) * 3 3 , c o l o r ) ; 
 
       L I N E _ P ( 2 8 + 6 + ( I - 1 ) * 3 3 , 3 6 + ( J - 1 ) * 3 3 , 2 8 + 6 + ( I - 1 ) * 3 3 , 2 8 + 3 6 + ( J - 1 ) * 3 3 , c o l o r ) ; 
 
       L I N E _ P ( 6 + ( I - 1 ) * 3 3 , 3 6 + ( J - 1 ) * 3 3 , 2 8 + 6 + ( I - 1 ) * 3 3 , 3 6 + ( J - 1 ) * 3 3 , c o l o r ) ; 
 
       L I N E _ P ( 6 + ( I - 1 ) * 3 3 , 2 8 + 3 6 + ( J - 1 ) * 3 3 , 2 8 + 6 + ( I - 1 ) * 3 3 , 2 8 + 3 6 + ( J - 1 ) * 3 3 , c o l o r ) ; 
 
 
 
 e n d ; 
 
 
 
 
 
 C o l o r S q u a r e ( i n d x ,   c o l o r N u m ) 
 
 b e g i n 
 
 l o c a l   I , J ; 
 
 
 
     I   : =   i r e m ( i n d x , 1 4 ) ; 
 
     i f   I = = 0   t h e n 
 
         I : = 1 4 ; 
 
     e n d ; 
 
 
 
     J   : =   i q u o ( i n d x - 1 , 1 4 ) + 1 ; 
 
 
 
     R E C T _ P ( 1 0 0 + 1 4 * I , 1 0 + 1 4 * J , 1 1 3 + 1 4 * I , 1 0 + 1 4 * J + 1 3 , c o l o r L i s t ( c o l o r N u m ) , c o l o r L i s t ( c o l o r N u m ) ) ; 
 
     b o a r d C o l o r ( i n d x ) : = c o l o r N u m ; 
 
 
 
     A d j a c e n t S q u a r e s ( i n d x ,   c o l o r N u m ) ; 
 
 e n d ; 
 
 
 
 D r a w C o l o r S e l e c t o r ( ) 
 
 b e g i n 
 
 
 
 A R C _ P ( 2 0 , 5 0 , 1 2 , { c o l o r L i s t ( 1 ) , c o l o r L i s t ( 1 ) } ) ; 
 
 A R C _ P ( 5 3 , 5 0 , 1 2 , { c o l o r L i s t ( 2 ) , c o l o r L i s t ( 2 ) } ) ; 
 
 A R C _ P ( 8 6 , 5 0 , 1 2 , { c o l o r L i s t ( 3 ) , c o l o r L i s t ( 3 ) } ) ; 
 
 A R C _ P ( 2 0 , 8 3 , 1 2 , { c o l o r L i s t ( 4 ) , c o l o r L i s t ( 4 ) } ) ; 
 
 A R C _ P ( 5 3 , 8 3 , 1 2 , { c o l o r L i s t ( 5 ) , c o l o r L i s t ( 5 ) } ) ; 
 
 A R C _ P ( 8 6 , 8 3 , 1 2 , { c o l o r L i s t ( 6 ) , c o l o r L i s t ( 6 ) } ) ; 
 
 e n d ; 
 
 
 
 
 
 C h e c k S q u a r e ( i n d x ,   c o l o r N u m ) 
 
 b e g i n 
 
 l o c a l   I , J ; 
 
 
 
         i f   ( b o a r d D o n e ( i n d x ) = = 1 )   a n d   ( b o a r d C o l o r ( i n d x ) < > c o l o r N u m )   t h e n 
 
             C o l o r S q u a r e ( i n d x ,   c o l o r N u m ) ; 
 
         e l s e 
 
             i f   ( b o a r d D o n e ( i n d x ) < > 1 )   a n d   ( b o a r d C o l o r ( i n d x ) = = c o l o r N u m )   t h e n 
 
                 b o a r d D o n e ( i n d x ) : = 1 ; 
 
                 A d j a c e n t S q u a r e s ( i n d x ,   c o l o r N u m ) ; 
 
             e n d ; 
 
         e n d ; 
 
 e n d ; 
 
 
 
 A d j a c e n t S q u a r e s ( i n d x ,   c o l o r N u m ) 
 
 b e g i n 
 
           C A S E 
 
       / / t o p   l e f t   c o r n e r 
 
       i f   i n d x   = =   1   t h e n 
 
           C h e c k S q u a r e ( i n d x + 1 ,   c o l o r N u m ) ; 
 
           C h e c k S q u a r e ( i n d x + 1 4 ,   c o l o r N u m ) ; 
 
       e n d ; 
 
 
 
       / / t o p   r o w 
 
       i f   2 < =   i n d x   < =   1 3   t h e n 
 
           C h e c k S q u a r e ( i n d x - 1 ,   c o l o r N u m ) ; 
 
           C h e c k S q u a r e ( i n d x + 1 ,   c o l o r N u m ) ; 
 
           C h e c k S q u a r e ( i n d x + 1 4 ,   c o l o r N u m ) ; 
 
       e n d ; 
 
 
 
       / / t o p   r i g h t   c o r n e r 
 
       i f   i n d x   = =   1 4   t h e n 
 
           C h e c k S q u a r e ( i n d x - 1 ,   c o l o r N u m ) ; 
 
           C h e c k S q u a r e ( i n d x + 1 4 ,   c o l o r N u m ) ; 
 
       e n d ; 
 
 
 
       / / b o t t o m   l e f t   c o r n e r 
 
       i f   i n d x   = =   1 8 3   t h e n 
 
           C h e c k S q u a r e ( i n d x - 1 4 ,   c o l o r N u m ) ; 
 
           C h e c k S q u a r e ( i n d x + 1 ,   c o l o r N u m ) ; 
 
       e n d ; 
 
 
 
       / / b o t t o m   r o w 
 
       i f   1 8 4 < =   i n d x   < =   1 9 5   t h e n 
 
           C h e c k S q u a r e ( i n d x - 1 4 ,   c o l o r N u m ) ; 
 
           C h e c k S q u a r e ( i n d x - 1 ,   c o l o r N u m ) ; 
 
           C h e c k S q u a r e ( i n d x + 1 ,   c o l o r N u m ) ; 
 
       e n d ; 
 
 
 
       / / b o t t o m   r i g h t   c o r n e r 
 
       i f   i n d x   = =   1 9 6   t h e n 
 
           C h e c k S q u a r e ( i n d x - 1 4 ,   c o l o r N u m ) ; 
 
           C h e c k S q u a r e ( i n d x - 1 ,   c o l o r N u m ) ; 
 
       e n d ; 
 
 
 
       / / f a r m o s t   l e f t   c o l u m n 
 
       i f   i r e m ( i n d x , 1 4 )   = =   1   t h e n 
 
           C h e c k S q u a r e ( i n d x - 1 4 ,   c o l o r N u m ) ; 
 
           C h e c k S q u a r e ( i n d x + 1 ,   c o l o r N u m ) ; 
 
           C h e c k S q u a r e ( i n d x + 1 4 ,   c o l o r N u m ) ; 
 
       e n d ; 
 
 
 
       / / f a r m o s t   r i g h t   c o l u m n 
 
       i f   i r e m ( i n d x , 1 4 )   = =   0   t h e n 
 
           C h e c k S q u a r e ( i n d x - 1 4 ,   c o l o r N u m ) ; 
 
           C h e c k S q u a r e ( i n d x - 1 ,   c o l o r N u m ) ; 
 
           C h e c k S q u a r e ( i n d x + 1 4 ,   c o l o r N u m ) ; 
 
       e n d ; 
 
 
 
       / / e v e r y w h e r e   e l s e   ( i n   t h e   m i d d l e ) 
 
           C h e c k S q u a r e ( i n d x - 1 4 ,   c o l o r N u m ) ; 
 
           C h e c k S q u a r e ( i n d x - 1 ,   c o l o r N u m ) ; 
 
           C h e c k S q u a r e ( i n d x + 1 ,   c o l o r N u m ) ; 
 
           C h e c k S q u a r e ( i n d x + 1 4 ,   c o l o r N u m ) ; 
 
   
 
       E N D ; 
 
 e n d ; 
 
 
 
 
 
 I n t T o S t r i n g ( i n t e g e r ) 
 
 b e g i n 
 
 l o c a l   r e m ; 
 
 l o c a l   s t r i n g   =   " " ; 
 
 l o c a l   n e g a t i v e   =   0 ; 
 
 
 
 i f   i n t e g e r   = =   0   t h e n 
 
       r e t u r n   " 0 " ; 
 
 e n d ; 
 
 
 
 i f   i n t e g e r   <   0   t h e n 
 
       n e g a t i v e   : =   1 ; 
 
     i n t e g e r   : =   i n t e g e r   *   ( - 1 ) ; 
 
 e n d ; 
 
 
 
 w h i l e   i n t e g e r   >   0   d o 
 
     r e m   : =   i r e m ( i n t e g e r , 1 0 ) ; 
 
     s t r i n g   : =   D i g i t T o C h a r ( r e m )   +   s t r i n g   ; 
 
     i n t e g e r   : =   ( i n t e g e r   -   r e m ) / 1 0 ; 
 
 e n d ; 
 
 
 
 i f   n e g a t i v e   = =   1   t h e n 
 
     s t r i n g : =   " - "   +   s t r i n g ; 
 
 e n d ; 
 
 r e t u r n   s t r i n g ; 
 
 
 
 e n d ; 
 
 
 
 
 
 D i g i t T o C h a r ( d i g i t ) 
 
 b e g i n 
 
 
 
 i f   d i g i t   = =   0   t h e n 
 
     r e t u r n   " 0 " ; 
 
 e n d ; 
 
 
 
 i f   d i g i t   = =   1   t h e n 
 
     r e t u r n   " 1 " ; 
 
 e n d ; 
 
 
 
 i f   d i g i t   = =   2   t h e n 
 
     r e t u r n   " 2 " ; 
 
 e n d ; 
 
 
 
 i f   d i g i t   = =   3   t h e n 
 
     r e t u r n   " 3 " ; 
 
 e n d ; 
 
 
 
 i f   d i g i t   = =   4   t h e n 
 
     r e t u r n   " 4 " ; 
 
 e n d ; 
 
 
 
 i f   d i g i t   = =   5   t h e n 
 
     r e t u r n   " 5 " ; 
 
 e n d ; 
 
 
 
 i f   d i g i t   = =   6   t h e n 
 
     r e t u r n   " 6 " ; 
 
 e n d ; 
 
 
 
 i f   d i g i t   = =   7   t h e n 
 
     r e t u r n   " 7 " ; 
 
 e n d ; 
 
 
 
 i f   d i g i t   = =   8   t h e n 
 
     r e t u r n   " 8 " ; 
 
 e n d ; 
 
 
 
 i f   d i g i t   = =   9   t h e n 
 
     r e t u r n   " 9 " ; 
 
 e n d ; 
 
 
 
 e n d ; 